type token =
  | EOF
  | CLASS
  | LPAR
  | RPAR
  | LBRA
  | RBRA
  | INT of (int)
  | IDENT of (string)

val expression :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> string
